home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / filecopy / modfilec.bas < prev   
BASIC Source File  |  1998-07-31  |  2KB  |  56 lines
  1. Attribute VB_Name = "modFileCopy"
  2. Option Explicit
  3. '--------------------------------------------------
  4. 'The following code was extracted from Microsoft
  5. 'technical support Article ID: Q172711
  6. '
  7. 'WARNING:The following functions enable you to copy
  8. 'an open file. If the source file is changed while
  9. 'the copy operation is in process, the destination
  10. 'file may be incomplete or may become corrupted.
  11. '--------------------------------------------------
  12.  
  13. Declare Function apiCopyFile Lib "kernel32" Alias "CopyFileA" _
  14. (ByVal lpExistingFileName As String, _
  15. ByVal lpNewFileName As String, _
  16. ByVal bFailIfExists As Long) As Long
  17.  
  18. Sub WinFileCopy(SourceFile As String, DestFile As String)
  19. '---------------------------------------------------------------
  20. ' PURPOSE: Copy a file on disk from one location to another.
  21. ' ACCEPTS: The name of the source file and destination file.
  22. ' RETURNS: Nothing
  23. '---------------------------------------------------------------
  24. 'WinFileCopy "<path to Northwind.mdb>", "C:\Northwind.mdb"
  25.  
  26.   Dim Result As Long
  27.       If Dir(SourceFile) = "" Then
  28.          MsgBox Chr(34) & SourceFile & Chr(34) & _
  29.             " is not valid file name."
  30.       Else
  31.          Result = apiCopyFile(SourceFile, DestFile, False)
  32.       End If
  33. End Sub
  34.  
  35. Sub DosFileCopy(SourceFile As String, DestFile As String)
  36. '---------------------------------------------------------------
  37. ' PURPOSE: Copy a file on disk from one location to another.
  38. ' ACCEPTS: The name of the source file and destination file.
  39. ' RETURNS: Nothing
  40. '---------------------------------------------------------------
  41. 'DosFileCopy "<path to Northwind.mdb>", "C:\Northwind.mdb"
  42.   Dim CopyString As String
  43.       If Dir(SourceFile) = "" Then
  44.          MsgBox Chr(34) & SourceFile & Chr(34) & _
  45.             " is not a valid file name."
  46.       Else
  47.          SourceFile = Chr(34) & SourceFile & Chr(34)
  48.          DestFile = Chr(34) & DestFile & Chr(34)
  49.          CopyString = "COMMAND.COM /C COPY " & SourceFile & _
  50.             " " & DestFile
  51.             
  52.          Call Shell(CopyString, 0)
  53.       End If
  54. End Sub
  55.  
  56.